home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Magazines / Phase6_2 / P6_Install next >
Text File  |  1998-06-24  |  993b  |  46 lines
  1. (message
  2.  
  3. "__________________________________\n"
  4. "*                                  *\n"
  5. "*   PHASE6 Installationsprogramm   *\n"
  6. "*__________________________________*\n\n\n"
  7. "Dieses Utility installiert PHASE6\n"
  8. "auf einem Datenträger (z.B. Festplatte)\n\n\n"
  9. "© 1997 Andy Collin"
  10. )
  11. (set #prgdir
  12. (cat "Bitte einen Platz für PHASE6 auswählen:\n"
  13.      "Ein Verzeichnis namens \"PHASE6_2\" wird\nautomatisch erzeugt\n"
  14. ))
  15.  
  16. (set dd (askdir (prompt #prgdir)
  17.                 (default "SYS:")
  18.                 (help #prgdirhelp)
  19. ))
  20.  
  21. (set @default-dest (tackon dd "Phase6_2"))
  22. (set tdir (tackon @default-dest "t"))
  23. (set gdir (tackon @default-dest "g"))
  24.  
  25. (makedir @default-dest)
  26.  
  27. (copyfiles (source "Phase6.exe")
  28.            (dest @default-dest)
  29.            (infos))
  30.  
  31. (makedir tdir)
  32. (copyfiles (source "t")
  33.            (dest tdir)
  34.            (all)
  35. )
  36.  
  37. (makedir gdir)
  38. (copyfiles (source "g")
  39.            (dest gdir)
  40.            (all)
  41. )
  42.  
  43. (copyfiles (source "libs")
  44.            (dest "LIBS:")
  45.            (all)
  46. )